home *** CD-ROM | disk | FTP | other *** search
/ Cookbook USA: Drips, Dressings & Sauces / Cookbook USA - Drips, Dressings & Sauces (1997)(MicroMedia).iso / ch15 / frmstatu.frm < prev    next >
Text File  |  1996-07-05  |  1KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form frmStatusBar 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Progress Indicator"
  5.    ClientHeight    =   375
  6.    ClientLeft      =   1905
  7.    ClientTop       =   2910
  8.    ClientWidth     =   4455
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   780
  12.    Icon            =   FRMSTATU.FRX:0000
  13.    Left            =   1845
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   375
  18.    ScaleWidth      =   4455
  19.    Top             =   2565
  20.    Width           =   4575
  21.    Begin NiftoMeter StatusBar 
  22.       BackColor       =   &H00FFFFC0&
  23.       BevelInner      =   1  'Inset
  24.       BevelOuter      =   2  'Raised
  25.       BevelWidth      =   1
  26.       BorderStyle     =   0  'None
  27.       BorderWidth     =   1
  28.       ForeColor       =   &H00FF8080&
  29.       Height          =   375
  30.       Left            =   120
  31.       Top             =   0
  32.       Width           =   4215
  33.    End
  34. End
  35. ' frmStatus has no procedures or methods of it's own.  It
  36. ' is simply a status gauge object on a form which can
  37. ' be shown by other forms to graphically demontrate
  38. ' progress.
  39.  
  40. Option Explicit
  41.  
  42. Sub Form_Load ()
  43. ' centering the form
  44. Me.Left = (screen.Width - Me.Width) / 2
  45. Me.Top = Abs((screen.Height - Me.Height) / 2)
  46.  
  47. End Sub
  48.  
  49.